home *** CD-ROM | disk | FTP | other *** search
/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / game_cga / cgagame2 / boogers!.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-10-06  |  22.5 KB  |  268 lines
  1. 1  REM NOTHING
  2. 2  REM
  3. 3  REM
  4. 5  REM DATNOIDS Copyright (c) 1982 By Casey Roche
  5. 8  REM
  6. 9  SCREEN 0,0,0
  7. 10  KEY OFF:WIDTH 80:COLOR 0,1,0:CLS:PLAY"mb":COLOR 4,0:LOCATE 24,1:PRINT" "+STRING$(78,219):SOUND 1000,1:PRINT" 000000      0000    00000000  00   00    000000   00000000  000000      00000":SOUND 2000,1
  8. 80  PRINT" 0222220    022220   02222220  02   20   02222220  02222220  0222220    0222220":SOUND 1000,1:PRINT" 02    20  02    20     22     020  20   02    20     22     02    20  0220    ":SOUND 2000,1
  9. 120  PRINT" 02    20  02    20     22     0220 20   02    20     22     02    20 0220   ":SOUND 1000,1:PRINT" 02    20  02222220     22     0202020   02    20     22     02    20  0220 ":SOUND 2000,1
  10. 160  PRINT" 02    20  02    20     22     02 0220   02    20     22     02    20    0220":SOUND 1000,1:PRINT" 02    20  02    20     22     02  020   02    20     22     02    20      0220":SOUND 2000,1
  11. 200  PRINT" 0222220   02    20     22     02   20   02222220  02222220  0222220   02222220":SOUND 1000,1:PRINT" 000000    00    00     00     00   00    000000   00000000  000000    0000000":SOUND 2000,1:PRINT" "+STRING$(78,219)
  12. 250  FOR I=1000 TO 4000 STEP 50:SOUND I,0.5:SOUND 5000-I,0.3:NEXT:PLAY"mf":COLOR 7,0:SOUND 32767,0.1:PRINT"                                       "+CHR$(15):SOUND 32767,0.1:PRINT"                                       *
  13. 280  SOUND 32767,0.1:PRINT"                                       "+CHR$(179):SOUND 32767,0.1:PRINT"                                       "+CHR$(179):SOUND 32767,0.1:PRINT"                                       "+CHR$(179)
  14. 310  SOUND 32767,0.1:PRINT"                                       "+CHR$(179):SOUND 32767,0.1:PRINT"                                       "+CHR$(179):SOUND 32767,0.1:PRINT"                                       "+CHR$(179)
  15. 340  SOUND 32767,0.1:LOCATE 23,28:COLOR 0,7:PRINT" BOOGERS! BY MITCH TEICH ":SOUND 32767,0.1:PRINT STRING$(80,"["):LOCATE 24,31:PRINT"(C) COPYRIGHT 1982":COLOR 7,0:PLAY"c8c8e8gc8c8e8gf8e8d8g8g8g8g":TIME$="00:00":PLAY"MB":DIM MZ(22,80)
  16. 400  ON KEY(1)GOSUB 1250:KEY(1)ON:DEF SEG=0:POKE 1050,PEEK(1052):CLS:LOCATE 10,21:INPUT"PLEASE ENTER YOUR SKILL LEVEL (1-10)";SK:IF SK<1 OR SK>10 THEN CLS:BEEP:LOCATE 10,63:PRINT"ERROR":GOTO 400
  17. 420  TK=SK:SK=(11-SK)*20:LOCATE 12,21:INPUT"PICK ONE-- (1,2 OR 3)";WM:IF WM=1 THEN LEV$="1":GOTO 470
  18. 440  IF WM=2 THEN LEV$="2":GOTO 470
  19. 450  IF WM=3 THEN LEV$="3":GOTO 470
  20. 460  CLS:BEEP:LOCATE 13,25:PRINT"LOOK YOU IDIOT- 1,2 OR 3 PLEASE":GOTO 420
  21. 470  CLS:PLAY"mb":B$=CHR$(219):LOCATE 10,35:PRINT"please wait...":FOR LS=1 TO 20:FOR SL=2 TO 79:MZ(LS,SL)=1:NEXT:NEXT:LOCATE 10,35:PRINT"              ":COLOR 0,7:LOCATE 25,16:PRINT" F1=QUIT  A=UP  Z=DOWN  ;=LEFT  `=RIGHT  [=BLAMMO! ":COLOR 7,0
  22. 500  LOCATE 24,1:PRINT STRING$(80," "):FOR I=2 TO 80:LOCATE 2,I:PRINT B$:MZ(2,I)=1:NEXT:FOR I=2 TO 80:LOCATE 22,I:PRINT B$:MZ(22,I)=1:NEXT:FOR I=2 TO 22:LOCATE I,2:PRINT B$:MZ(I,2)=1:MZ(I,1)=1:NEXT:FOR I=2 TO 22:LOCATE I,80:PRINT B$:MZ(I,80)=1:NEXT
  23. 550  LOCATE 4,2:PRINT CHR$(221):LOCATE 6,2:PRINT CHR$(221):LOCATE 23,4,0:PRINT"0 SCORE =                   0000000000000000000 LEVEL   "+STR$(TK)+"  00  MAZE "+LEV$+"  000":S$=STRING$(75,176):LOCATE 24,4,0:PRINT USING"&";S$
  24. 610  LOCATE 22,37:COLOR 7,0:PRINT CHR$(16)+"BOOGERS!"+CHR$(17):COLOR 7,0:CH$=CHR$(15):LOCATE 4,1:PRINT" ":LOCATE 4,2:PRINT" ":LOCATE 1,1,0:LOCATE 22,24:PRINT SC:IF LEV$="1"THEN GOSUB 2560
  25. 650  IF LEV$="2"THEN GOSUB 4210
  26. 660  IF LEV$="3"THEN GOSUB 6720
  27. 670  COLOR 15,0:LOCATE 19,72:PRINT CH$:COLOR 1,0:LOCATE 20,72:PRINT"J":PLAY"MF":FOR R=1 TO 600 STEP 10:SOUND 1000+R,0.1:SOUND 3000+R*1.5,0.1:NEXT:FOR R=1 TO 3:SOUND 32767,10:BEEP:NEXT:PLAY"MB":DEF SEG=0:POKE 1050,PEEK(1052):ON KEY(1)GOSUB 1250:KEY(1)ON
  28. 700  X=19:Y=72:A=1:B=0:COLOR 15,0
  29. 710  MZ(4,1)=9:FOR UI=70 TO 74:MZ(20,UI)=1:NEXT:SC=INT(SC+VAL(RIGHT$(TIME$,2))+INT((200-SK)/10)):LOCATE 22,24:PRINT SC
  30. 720  X=X-A:Y=Y-B:IF MZ(X,Y)=9 GOTO 8940
  31. 730  IF MZ(X,Y)<>4 GOTO 1140
  32. 750  LOCATE X,Y:PRINT CH$:SOUND 32767,0.05:FOR P=1 TO SK:NEXT:AXN$=INKEY$:IF AXN$="A"OR AXN$="a"THEN GOSUB 1070
  33. 762  IF AXN$="Z"OR AXN$="z"THEN GOSUB 950
  34. 763  IF AXN$="`"OR AXN$="~"THEN GOSUB 890
  35. 764  IF AXN$=";"OR AXN$=":"THEN GOSUB 1010
  36. 765  IF AXN$="["OR AXN$="{"THEN GOSUB 1260:GOTO 770
  37. 770  IF A=1 THEN LOCATE X+1,Y:PRINT CHR$(179):SOUND 32767,0.1
  38. 780  IF A=-1 THEN LOCATE X-1,Y:PRINT CHR$(179):SOUND 32767,0.1
  39. 790  IF B=-1 THEN LOCATE X,Y-1:PRINT CHR$(196):SOUND 32767,0.1
  40. 800  IF B=1 THEN LOCATE X,Y+1:PRINT CHR$(196):SOUND 32767,0.1
  41. 810  AXN$=INKEY$:IF AXN$="A"OR AXN$="a"THEN GOSUB 1070
  42. 820  IF AXN$="Z"OR AXN$="z"THEN GOSUB 950
  43. 830  IF AXN$="`"OR AXN$="~"THEN GOSUB 890
  44. 840  IF AXN$=";"OR AXN$=":"THEN GOSUB 1010
  45. 850  IF AXN$="["OR AXN$="{"THEN GOSUB 1260:GOTO 770
  46. 860  LOCATE X,Y:PRINT"*":SC=SC+1:GOTO 720
  47. 890  IF A=-1 AND X-1<2 THEN LOCATE X-1,Y:PRINT CHR$(219):LOCATE X,Y:PRINT CHR$(192):GOTO 940
  48. 900  IF A=-1 THEN LOCATE X-1,Y:PRINT CHR$(179):LOCATE X,Y:PRINT CHR$(192):GOTO 940
  49. 910  IF A=1 THEN LOCATE X+1,Y:PRINT CHR$(179):LOCATE X,Y:PRINT CHR$(218)
  50. 920  IF B=1 GOTO 1200
  51. 930  IF B=-1 GOTO 1200
  52. 940  A=0:B=-1:TI=1:Y=Y+1:RETURN 710
  53. 950  IF A=1 AND X-1<2 THEN LOCATE X,Y:PRINT CHR$(219):LOCATE X,Y:PRINT CHR$(179):GOTO 1000
  54. 960  IF B=-1 THEN LOCATE X,Y-1:PRINT CHR$(196):LOCATE X,Y:PRINT CHR$(191):GOTO 1000
  55. 970  IF B=1 THEN LOCATE X,Y+1:PRINT CHR$(196):LOCATE X,Y:PRINT CHR$(218)
  56. 980  IF A=1 THEN 1200
  57. 990  IF A=-1 THEN 1200
  58. 1000  A=-1:B=0:TI=20:X=X+1:RETURN 710
  59. 1010  IF X<>4 AND Y=3 THEN 1140
  60. 1017  IF A=-1 AND X-1<2 THEN LOCATE X-1,Y:PRINT CHR$(219):LOCATE X,Y:PRINT CHR$(217):GOTO 1060
  61. 1020  IF A=-1 THEN LOCATE X-1,Y:PRINT CHR$(179):LOCATE X,Y:PRINT CHR$(217):GOTO 1060
  62. 1030  IF A=1 THEN LOCATE X+1,Y:PRINT CHR$(179):LOCATE X,Y:PRINT CHR$(191)
  63. 1040  IF B=-1 THEN 1200
  64. 1050  IF B=1 GOTO 1200
  65. 1060  A=0:B=1:TI=1:Y=Y-1:RETURN 710
  66. 1070  IF B=-1 AND Y-1>79 THEN LOCATE X,Y-1:PRINT CHR$(219):LOCATE X,Y:PRINT CHR$(217):GOTO 1120
  67. 1080  IF B=-1 THEN LOCATE X,Y-1:PRINT CHR$(196):LOCATE X,Y:PRINT CHR$(217):GOTO 1120
  68. 1090  IF B=1 THEN LOCATE X,Y+1:PRINT CHR$(196):LOCATE X,Y:PRINT CHR$(192)
  69. 1100  IF A=-1 THEN 1200
  70. 1110  IF A=1 THEN 1200
  71. 1120  A=1:B=0:TI=20:X=X-1:RETURN 710
  72. 1140  PLAY"MB":FOR T=100 TO 10000 STEP 100:SOUND T,0.1:NEXT:SOUND 37,18:LOCATE X,Y:PRINT CHR$(176):FOR H=1 TO 199:NEXT:LOCATE X,Y:PRINT CHR$(177):FOR H=1 TO 199:NEXT:LOCATE X,Y:PRINT CHR$(178):FOR H=1 TO 199:NEXT:LOCATE X,Y:PRINT CHR$(219):SOUND 4700,2
  73. 1160  FOR M=1 TO 3:IF X-M<1 OR X+M>24 THEN 1170 ELSE LOCATE X-M,Y:PRINT CHR$(179-M):LOCATE X+M,Y:PRINT CHR$(179-M):NEXT
  74. 1170  FOR M=1 TO 3:IF Y-M<1 OR Y+M>80 THEN 1180 ELSE LOCATE X,Y-M:PRINT CHR$(179-M):LOCATE X,Y+M:PRINT CHR$(179-M):NEXT:LOCATE X,Y:PRINT CHR$(254)
  75. 1180  SC=INT(SC+VAL(RIGHT$(TIME$,2))+((200-SK)/10))
  76. 1190  LOCATE 22,24:PRINT SC:LOCATE 10,15:PRINT" YOU HAVE IMMOLATED YOURSELF ON THE ANTIMATTER WALL ":FOR H=1 TO 3000:NEXT:DD=DD+1:IF DD<4 THEN COLOR 3,0:LOCATE 10,12:PRINT STRING$(55,178):LOCATE 4,2:PRINT" ":GOTO 1500 ELSE 1560
  77. 1200  PLAY"mb":FOR T=100 TO 10000 STEP 100:SOUND T,0.1:SOUND 10100-T,0.1:NEXT:SOUND 37,18
  78. 1210  LOCATE X,Y:PRINT CHR$(176):FOR H=1 TO 199:NEXT:LOCATE X,Y:PRINT CHR$(177):FOR H=1 TO 199:NEXT:LOCATE X,Y:PRINT CHR$(178):FOR H=1 TO 199:NEXT:LOCATE X,Y:PRINT CHR$(219):SOUND 4700,2
  79. 1220  FOR M=1 TO 3:IF X-M<1 OR X+M>24 THEN 1230 ELSE LOCATE X-M,Y:PRINT CHR$(179-M):LOCATE X+M,Y:PRINT CHR$(179-M):NEXT
  80. 1230  FOR M=1 TO 3:IF Y-M<1 OR Y+M>80 THEN 1240 ELSE LOCATE X,Y-M:PRINT CHR$(179-M):LOCATE X,Y+M:PRINT CHR$(179-M):NEXT:LOCATE X,Y:PRINT CHR$(254)
  81. 1240  SC=INT(SC+VAL(RIGHT$(TIME$,2))+((200-SK)/10)):LOCATE 22,24:PRINT SC:LOCATE 10,16:PRINT" YOU HAVE EXCEEDED THE RESTRICTIONS OF HYPERSPEED ":FOR H=1 TO 3000:NEXT:GOTO 1500
  82. 1250  COLOR 7,0:CLS:KEY ON:PRINT"Later.":END
  83. 1260  LOCATE X,Y:PRINT CHR$(15):LOCATE X+A,Y+B:PRINT"*":FOR H=5000 TO 100 STEP-250:SOUND H,0.1:NEXT:XT=X:YT=Y:SC=INT(SC+VAL(RIGHT$(TIME$,2))+((200-SK)/10)):LOCATE 22,24:PRINT SC:IF MZ(X,Y)=7 THEN 1340
  84. 1300  SOUND 4000,0.1:LOCATE XT-A,YT-B:PRINT CHR$(249):IF MZ(XT-A,YT-B)=4 THEN LOCATE XT-A,YT-B:PRINT" ":XT=XT-A:YT=YT-B:GOTO 1300 ELSE IF MZ(XT-A,YT-B)=7 OR MZ(XT-A,YT-B)=8 THEN 1340
  85. 1320  IF MZ(XT-A,YT-B)=9 THEN 1380
  86. 1330  IF MZ(XT-A,YT-B)<>4 THEN 1380
  87. 1340  PLAY"MF
  88. 1350  LOCATE XT-A,YT-B:PRINT CHR$(176):FOR H=37 TO 1500 STEP 100:SOUND H,0.1:NEXT:LOCATE XT-A,YT-B:PRINT CHR$(177):FOR H=1500 TO 3000 STEP 100:SOUND H,0.1:NEXT:LOCATE XT-A,YT-B:PRINT CHR$(178):FOR H=3000 TO 5000 STEP 100:SOUND H,0.1:NEXT:LOCATE XT-A,YT-B
  89. 1360  PRINT CHR$(219):SOUND 5000,0.1:LOCATE XT-A,YT-B:PRINT CHR$(178):SOUND 37,4:LOCATE XT-A,YT-B:PRINT CHR$(177):SOUND 37,3:LOCATE XT-A,YT-B:PRINT CHR$(176):SOUND 37,2:LOCATE XT-A,YT-B:PRINT" ":MZ(XT-A,YT-B)=4:PLAY"MB":RETURN
  90. 1380  PLAY"MF
  91. 1390  LOCATE XT-A,YT-B:PRINT CHR$(176):FOR H=37 TO 1500 STEP 100:SOUND H,0.1:NEXT:LOCATE XT-A,YT-B:PRINT CHR$(177):FOR H=1500 TO 3000 STEP 100:SOUND H,0.1:NEXT:LOCATE XT-A,YT-B:PRINT CHR$(178):FOR H=3000 TO 5000 STEP 100:SOUND H,0.1:NEXT:LOCATE XT-A,YT-B
  92. 1400  PRINT CHR$(219):SOUND 5000,0.1:LOCATE XT-A,YT-B:PRINT CHR$(178):SOUND 37,3:LOCATE XT-A,YT-B:PRINT CHR$(177):SOUND 37,3:LOCATE XT-A,YT-B:PRINT CHR$(176):SOUND 37,3
  93. 1420  PLAY"MB":SOUND 3800,0.1:LOCATE XT+A,YT+B:PRINT CHR$(249):IF XT=X AND YT=Y THEN 1450
  94. 1440  IF XT+A=X AND YT+B=Y THEN 1450 ELSE LOCATE XT+A,YT+B:PRINT" ":XT=XT+A:YT=YT+B:GOTO 1420
  95. 1450  KEY(9)OFF:KEY(10)OFF:KEY(12)OFF:KEY(13)OFF:PLAY"mb":FOR T=100 TO 10000 STEP 100:SOUND T,0.1:SOUND 10100-T,0.1:NEXT:SOUND 37,18
  96. 1460  LOCATE X,Y:PRINT CHR$(176):FOR H=1 TO 199:NEXT:LOCATE X,Y:PRINT CHR$(177):FOR H=1 TO 199:NEXT:LOCATE X,Y:PRINT CHR$(178):FOR H=1 TO 199:NEXT:LOCATE X,Y:PRINT CHR$(254):SOUND 4700,2
  97. 1470  FOR M=1 TO 3:IF X-M<1 OR X+M>24 THEN 1180 ELSE LOCATE X-M,Y:PRINT CHR$(179-M):LOCATE X+M,Y:PRINT CHR$(179-M):NEXT
  98. 1480  FOR M=1 TO 3:IF Y-M<1 OR Y+M>80 THEN 1180 ELSE LOCATE X,Y-M:PRINT CHR$(179-M):LOCATE X,Y+M:PRINT CHR$(179-M):NEXT:LOCATE X,Y:PRINT CHR$(254)
  99. 1490  SC=INT(SC+VAL(RIGHT$(TIME$,2))+((200-SK)/10)):LOCATE 22,24:PRINT SC:LOCATE 10,19:PRINT" YOUR MISSILE RICOCHETTED AND DESTROYED YOU ":FOR H=1 TO 3000:NEXT:DD=DD+1
  100. 1500  IF DD<4 THEN LOCATE 10,12:COLOR 3,0:PRINT STRING$(55,178) ELSE 1560
  101. 1510  LOCATE 4,2:PRINT" ":LOCATE X,Y:PRINT"0":IF LEV$="1"THEN GOSUB 1570
  102. 1530  IF LEV$="2"THEN GOSUB 7370
  103. 1540  IF LEV$="3"THEN GOSUB 6720
  104. 1550  GOTO 670
  105. 1560  CLS:LOCATE 10,25:PRINT"FINAL SCORE WAS",SC:FOR H=1 TO 3000:NEXT:SC=0:DD=0:GOTO 400
  106. 1570  LOCATE X,Y:PRINT CHR$(176):FOR M=13 TO 20:N=72:LOCATE M,N:PRINT" ":LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR M=3 TO 10:N=70:LOCATE M,N:PRINT CHR$(32)
  107. 1690  LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR M=13 TO 18:N=56:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32)
  108. 1800  LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR M=3 TO 8:N=31:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR N=3 TO 23:M=4:LOCATE M,N:PRINT CHR$(32)
  109. 1930  LOCATE M+1,N:PRINT CHR$(32):LOCATE M-1,N:PRINT CHR$(32):NEXT:FOR N=29 TO 72:M=4:LOCATE M,N:PRINT CHR$(32):LOCATE M+1,N:PRINT CHR$(32):LOCATE M-1,N:PRINT CHR$(32):NEXT:FOR N=40 TO 58:M=18:LOCATE M,N:PRINT CHR$(32):LOCATE M+1,N:PRINT CHR$(32)
  110. 2060  LOCATE M-1,N:PRINT CHR$(32):NEXT:FOR N=54 TO 74:M=14:LOCATE M,N:PRINT CHR$(32):LOCATE M+1,N:PRINT CHR$(32):LOCATE M-1,N:PRINT CHR$(32):NEXT:FOR N=50 TO 72:M=9:LOCATE M,N:PRINT CHR$(32):LOCATE M+1,N:PRINT CHR$(32):LOCATE M-1,N:PRINT CHR$(32):NEXT
  111. 2200  FOR N=10 TO 23:M=17:LOCATE M,N:PRINT CHR$(32):LOCATE M+1,N:PRINT CHR$(32):LOCATE M-1,N:PRINT CHR$(32):NEXT:N=51:FOR M=8 TO 16:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32)
  112. 2300  LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):N=N-1:NEXT:N=21:FOR M=6 TO 15:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):N=N-1:NEXT:N=31
  113. 2390  FOR M=8 TO 18:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):N=N-1:NEXT:COLOR 0,7:FOR M=13 TO 15:N=60:MZ(M,N)=8:LOCATE M,N:PRINT CHR$(186):NEXT
  114. 2450  FOR M=3 TO 5:N=36:MZ(M,N)=8:LOCATE M,N:PRINT CHR$(186):NEXT:FOR M=3 TO 5:N=46:MZ(M,N)=8:LOCATE M,N:PRINT CHR$(186):NEXT:FOR M=3 TO 5:N=56:MZ(M,N)=8:LOCATE M,N:PRINT CHR$(186):NEXT:FOR M=3 TO 5:N=6:MZ(M,N)=8:LOCATE M,N:PRINT CHR$(186):NEXT
  115. 2490  FOR M=3 TO 5:N=12:MZ(M,N)=8:LOCATE M,N:PRINT CHR$(186):NEXT:FOR M=17 TO 19:N=46:MZ(M,N)=8:LOCATE M,N:PRINT CHR$(186):NEXT:FOR M=16 TO 18:N=15:MZ(M,N)=8:LOCATE M,N:PRINT CHR$(186):NEXT:FOR N=29 TO 33:M=7:MZ(M,N)=7:LOCATE M,N:PRINT CHR$(205):NEXT
  116. 2530  FOR N=12 TO 16:M=13:MZ(M,N)=7:LOCATE M,N:PRINT CHR$(205):NEXT:COLOR 4,0:G=1:FOR H=3 TO 21:LOCATE H,G:PRINT" ":NEXT:GOTO 670
  117. 2560  COLOR 7,0:LOCATE 10,22:PRINT"WAIT WHILE I PREPARE THE LEVEL ONE TEST":COLOR 7,0:FOR M=13 TO 20:N=72:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N-3)=1:MZ(M,N-4)=3:MZ(M,N+4)=3:NEXT:FOR M=3 TO 10:N=70:MZ(M,N)=4
  118. 2740  MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N-3)=1:MZ(M,N-4)=3:MZ(M,N+4)=3:NEXT:FOR M=13 TO 18:N=56:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N-3)=1:MZ(M,N-4)=3:MZ(M,N+4)=3:NEXT:FOR M=3 TO 8
  119. 2960  N=31:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N-3)=1:MZ(M,N-4)=3:MZ(M,N+4)=3:NEXT:FOR N=2 TO 23:M=4:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  120. 3130  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  121. 3140  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  122. 3150  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  123. 3160  NEXT:FOR N=29 TO 72:M=4:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  124. 3230  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  125. 3240  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  126. 3250  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  127. 3260  NEXT:FOR N=40 TO 58:M=18:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  128. 3340  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  129. 3350  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  130. 3360  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  131. 3370  NEXT:FOR N=54 TO 74:M=14:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  132. 3412  REM                                                                       [
  133. 3440  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  134. 3450  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  135. 3460  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  136. 3470  NEXT:FOR N=50 TO 72:M=9:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  137. 3540  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  138. 3550  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  139. 3560  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  140. 3570  NEXT:FOR N=10 TO 23:M=17:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  141. 3640  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  142. 3650  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  143. 3660  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  144. 3670  NEXT:N=51:FOR M=8 TO 16:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N+2)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:IF MZ(M,N-3)<>4 THEN MZ(M,N-3)=1
  145. 3740  IF MZ(M,N+3)<>4 THEN MZ(M,N+3)=1
  146. 3750  IF MZ(M,N+4)<>4 THEN MZ(M,N+4)=3
  147. 3760  IF MZ(M,N-4)<>4 THEN MZ(M,N-4)=3
  148. 3770  N=N-1:NEXT:N=21:FOR M=6 TO 15:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N+2)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:IF MZ(M,N-3)<>4 THEN MZ(M,N-3)=1
  149. 3840  IF MZ(M,N+3)<>4 THEN MZ(M,N+3)=1
  150. 3850  IF MZ(M,N+4)<>4 THEN MZ(M,N+4)=3
  151. 3860  IF MZ(M,N-4)<>4 THEN MZ(M,N-4)=3
  152. 3870  N=N-1:NEXT:N=31:FOR M=8 TO 18:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N+2)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:IF MZ(M,N-3)<>4 THEN MZ(M,N-3)=1
  153. 3940  IF MZ(M,N+3)<>4 THEN MZ(M,N+3)=1
  154. 3950  IF MZ(M,N+4)<>4 THEN MZ(M,N+4)=3
  155. 3960  IF MZ(M,N-4)<>4 THEN MZ(M,N-4)=3
  156. 3970  N=N-1:NEXT:MZ(3,2)=0:MZ(5,2)=0:FOR M=13 TO 15:N=60:MZ(M,N)=8:NEXT:FOR M=3 TO 5:N=36:MZ(M,N)=8:NEXT:FOR M=3 TO 5:N=46:MZ(M,N)=8:NEXT:FOR M=3 TO 5:N=56:MZ(M,N)=8:NEXT:FOR M=3 TO 5:N=6:MZ(M,N)=8:NEXT:FOR M=3 TO 5:N=12:MZ(M,N)=8:NEXT
  157. 4050  FOR M=17 TO 19:N=46:MZ(M,N)=8:NEXT:FOR M=16 TO 18:N=15:MZ(M,N)=8:NEXT:FOR N=29 TO 33:M=7:MZ(M,N)=7:NEXT:FOR N=12 TO 16:M=13:MZ(M,N)=7:NEXT:COLOR 3,0:FOR O=2 TO 20:FOR P=3 TO 79:IF MZ(O,P)=4 THEN LOCATE O,P:PRINT" ":GOTO 4190
  158. 4140  IF MZ(O,P)=0 THEN LOCATE O,P:PRINT CHR$(178):GOTO 4190
  159. 4150  IF MZ(O,P)=1 THEN LOCATE O,P:PRINT CHR$(176):GOTO 4190
  160. 4160  IF MZ(O,P)=3 THEN LOCATE O,P:PRINT CHR$(177):GOTO 4190
  161. 4170  IF MZ(O,P)=7 THEN COLOR 0,7:SOUND 120,0.1:LOCATE O,P:PRINT CHR$(205):COLOR 3,0:GOTO 4190
  162. 4180  IF MZ(O,P)=8 THEN COLOR 0,7:SOUND 37,0.1:LOCATE O,P:PRINT CHR$(186):COLOR 3,0
  163. 4190  NEXT:NEXT:COLOR 7,0:RETURN
  164. 4210  COLOR 7,0:LOCATE 10,22:PRINT"WAIT WHILE I PREPARE THE LEVEL TWO TEST":COLOR 7,0:FOR M=15 TO 20:N=72:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N-3)=1:MZ(M,N-4)=3:MZ(M,N+4)=3:NEXT:FOR M=10 TO 17:N=57:MZ(M,N)=4
  165. 4430  MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N-3)=1:MZ(M,N-4)=3:MZ(M,N+4)=3:NEXT:FOR M=5 TO 12:N=74:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N-3)=1:MZ(M,N-4)=3:MZ(M,N+4)=3:NEXT:FOR M=9 TO 19
  166. 4650  N=41:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-1)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N-3)=1:MZ(M,N-4)=3:MZ(M,N+4)=3:NEXT:FOR M=4 TO 19:N=34:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N-3)=1:MZ(M,N-4)=3:MZ(M,N+4)=3:NEXT
  167. 4880  FOR M=3 TO 19:N=3:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N+4)=3:NEXT:FOR M=13 TO 19:N=17:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N-3)=1:MZ(M,N-4)=3:MZ(M,N+4)=3:NEXT
  168. 5100  FOR M=9 TO 15:N=26:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N-3)=1:MZ(M,N-4)=3:MZ(M,N+4)=3:NEXT:FOR M=3 TO 11:N=21:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:MZ(M,N+2)=4:MZ(M,N+3)=1:MZ(M,N-3)=1:MZ(M,N-4)=3
  169. 5320  MZ(M,N+4)=3:NEXT:FOR N=74 TO 55 STEP-1:M=16:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  170. 5410  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  171. 5420  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  172. 5430  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  173. 5440  NEXT:FOR N=55 TO 74:M=11:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  174. 5510  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  175. 5520  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  176. 5530  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  177. 5540  NEXT:FOR N=53 TO 76:M=6:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  178. 5610  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  179. 5620  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  180. 5630  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  181. 5640  NEXT:FOR N=32 TO 48:M=5:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  182. 5710  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  183. 5720  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  184. 5730  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  185. 5740  NEXT:FOR N=15 TO 35:M=18:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  186. 5810  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  187. 5820  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  188. 5830  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  189. 5840  NEXT:FOR N=15 TO 28:M=14:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  190. 5910  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  191. 5920  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  192. 5930  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  193. 5940  NEXT:FOR N=19 TO 28:M=10:MZ(M,N)=4:MZ(M+1,N)=4:MZ(M-1,N)=4:IF MZ(M-2,N)<>4 THEN MZ(M-2,N)=1
  194. 6010  IF MZ(M+2,N)<>4 THEN MZ(M+2,N)=1
  195. 6020  IF MZ(M+3,N)<>4 THEN MZ(M+3,N)=3
  196. 6030  IF MZ(M-3,N)<>4 THEN MZ(M-3,N)=3
  197. 6040  NEXT:N=54:FOR M=5 TO 17:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N+2)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:IF MZ(M,N-3)<>4 THEN MZ(M,N-3)=1
  198. 6130  IF MZ(M,N+3)<>4 THEN MZ(M,N+3)=1
  199. 6140  IF MZ(M,N-4)<>4 THEN MZ(M,N-4)=3
  200. 6150  IF MZ(M,N+4)<>4 THEN MZ(M,N+4)=3
  201. 6160  N=N-1:NEXT:N=46:FOR M=4 TO 8:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N+2)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:IF MZ(M,N-3)<>4 THEN MZ(M,N-3)=1
  202. 6230  IF MZ(M,N+3)<>4 THEN MZ(M,N+3)=1
  203. 6240  IF MZ(M,N-4)<>4 THEN MZ(M,N-4)=3
  204. 6250  IF MZ(M,N+4)<>4 THEN MZ(M,N+4)=3
  205. 6260  N=N-1:NEXT:N=21:FOR M=3 TO 19:MZ(M,N)=4:MZ(M,N+1)=4:MZ(M,N+2)=4:MZ(M,N-1)=4:MZ(M,N-2)=4:IF MZ(M,N-3)<>4 THEN MZ(M,N-3)=1
  206. 6330  IF MZ(M,N+3)<>4 THEN MZ(M,N+3)=1
  207. 6340  IF MZ(M,N-4)<>4 THEN MZ(M,N-4)=3
  208. 6350  IF MZ(M,N+4)<>4 THEN MZ(M,N+4)=3
  209. 6360  N=N-1:NEXT:N=60:FOR M=15 TO 17:MZ(M,N)=8:NEXT:N=65:FOR M=15 TO 17:MZ(M,N)=8:NEXT:M=13:FOR N=55 TO 59:MZ(M,N)=7:NEXT:M=8:FOR N=72 TO 76:MZ(M,N)=7:NEXT:M=12:FOR N=40 TO 43:MZ(M,N)=7:NEXT:M=10:FOR N=32 TO 36:MZ(M,N)=7:NEXT
  210. 6440  M=16:FOR N=32 TO 36:MZ(M,N)=7:NEXT:M=12:FOR N=24 TO 28:MZ(M,N)=7:NEXT:M=15:FOR N=3 TO 5:MZ(M,N)=7:NEXT:M=10:FOR N=3 TO 5:MZ(M,N)=7:NEXT:M=6:FOR N=3 TO 5:MZ(M,N)=7:NEXT:N=71:FOR M=10 TO 12:MZ(M,N)=8:NEXT:N=66:FOR M=10 TO 12:MZ(M,N)=8:NEXT
  211. 6510  N=54:FOR M=5 TO 7:MZ(M,N)=8:NEXT:N=61:FOR M=5 TO 7:MZ(M,N)=8:NEXT:N=66:FOR M=5 TO 7:MZ(M,N)=8:NEXT:N=38:FOR M=4 TO 6:MZ(M,N)=8:NEXT:N=25:FOR M=17 TO 19:MZ(M,N)=8:NEXT:N=20:FOR M=17 TO 19:MZ(M,N)=8:NEXT:N=23:FOR M=13 TO 15:MZ(M,N)=8:NEXT
  212. 6600  MZ(3,2)=4:MZ(5,2)=4:COLOR 3,0:FOR O=2 TO 20:FOR P=3 TO 79:IF MZ(O,P)=4 THEN LOCATE O,P:PRINT" ":GOTO 6700
  213. 6640  IF MZ(O,P)=0 THEN LOCATE O,P:PRINT CHR$(178):GOTO 6700
  214. 6650  IF MZ(O,P)=1 THEN LOCATE O,P:PRINT CHR$(176):GOTO 6700
  215. 6660  IF MZ(O,P)=2 THEN LOCATE O,P:PRINT CHR$(176):GOTO 6700
  216. 6670  IF MZ(O,P)=3 THEN LOCATE O,P:PRINT CHR$(177):GOTO 6700
  217. 6680  IF MZ(O,P)=7 THEN COLOR 0,7:SOUND 100,0.1:LOCATE O,P:PRINT CHR$(205):COLOR 3,0:GOTO 6700
  218. 6690  IF MZ(O,P)=8 THEN COLOR 0,7:SOUND 37,0.1:LOCATE O,P:PRINT CHR$(186):COLOR 3,0
  219. 6700  NEXT:NEXT:COLOR 7,0:RETURN
  220. 6720  COLOR 7,0:LOCATE 10,10:PRINT"               ALLOW ME TO PREPARE THE THIRD TEST         ":COLOR 3,0:LOCATE 3,2:PRINT CHR$(221):LOCATE 5,2:PRINT CHR$(221):G=1:FOR H=3 TO 21:LOCATE H,G:PRINT" ":NEXT:H=2:FOR G=1 TO 21:MZ(G,H)=4:NEXT
  221. 6760  H=79:FOR G=1 TO 21:MZ(G,H)=4:NEXT:G=1:FOR H=1 TO 79:MZ(G,H)=4:NEXT:G=21:FOR H=1 TO 79:MZ(G,H)=4:NEXT:MZ(4,2)=9:PLAY"MB":DEF SEG=&H40:RANDOMIZE PEEK(&H6D)*256+PEEK(&H6C)-32768:FOR H=2 TO 20:FOR G=3 TO 79:X=INT(RND*(16)):LOCATE H,G:PRINT CHR$(16)
  222. 6840  IF X=2 OR X=9 THEN LOCATE H,G:PRINT CHR$(176+INT(RND*(3))):MZ(H,G)=0:SOUND(RND*2000)+37,0.1:GOTO 6860
  223. 6850  LOCATE H,G:PRINT" ":MZ(H,G)=4
  224. 6860  NEXT:NEXT:H=72:FOR G=20 TO 13 STEP-1:LOCATE G,H:PRINT" ":MZ(G,H)=4:NEXT:G=4:FOR H=2 TO 15:LOCATE G,H:PRINT" ":MZ(G,H)=4:NEXT:COLOR 0,7:SOUND 600,0.1:LOCATE 10,5:PRINT CHR$(201):MZ(10,5)=7
  225. 6910  SOUND 600,0.1:G=10:FOR H=6 TO 12:LOCATE G,H:PRINT CHR$(205):MZ(G,H)=7:NEXT:SOUND 600,0.1:LOCATE 10,13:PRINT CHR$(187):MZ(10,13)=7:SOUND 600,0.1:LOCATE 11,13:PRINT CHR$(186):MZ(11,13)=7:SOUND 600,0.1:LOCATE 12,13:PRINT CHR$(186):MZ(12,13)=7
  226. 6950  SOUND 600,0.1:LOCATE 13,13:PRINT CHR$(186):MZ(13,13)=7:SOUND 600,0.1:LOCATE 14,13:PRINT CHR$(200):MZ(14,13)=7:SOUND 600,0.1:G=14:FOR H=14 TO 30:LOCATE G,H:PRINT CHR$(205):MZ(G,H)=7:NEXT:SOUND 600,0.1:LOCATE 14,31:PRINT CHR$(187):MZ(14,31)=7
  227. 6990  SOUND 600,0.1:H=31:FOR G=15 TO 17:LOCATE G,H:PRINT CHR$(186):MZ(G,H)=7:NEXT:SOUND 600,0.1:LOCATE 18,31:PRINT CHR$(188):MZ(13,13)=7:SOUND 600,0.1:G=18:FOR H=30 TO 6 STEP-1:LOCATE G,H:PRINT CHR$(205):MZ(G,H)=7:NEXT
  228. 7020  SOUND 600,0.1:LOCATE 18,5:PRINT CHR$(200):MZ(18,5)=7:SOUND 600,0.1:H=5:FOR G=17 TO 11 STEP-1:LOCATE G,H:PRINT CHR$(186):MZ(G,H)=7:NEXT:COLOR 4,0:SOUND 600,0.1:FOR G=11 TO 17:FOR H=6 TO 12:LOCATE G,H:PRINT" ":MZ(G,H)=4:SOUND 1500,0.1:NEXT:NEXT
  229. 7050  SOUND 600,0.1:FOR G=15 TO 17:FOR H=13 TO 30:LOCATE G,H:PRINT" ":MZ(G,H)=4:SOUND 1500,0.1:NEXT:NEXT:COLOR 0,7:SOUND 600,0.1:LOCATE 4,53:PRINT CHR$(201):MZ(4,53)=7:SOUND 600,0.1:G=4:FOR H=54 TO 76:LOCATE G,H:PRINT CHR$(205):MZ(G,H)=7:NEXT
  230. 7080  SOUND 600,0.1:LOCATE 4,77:PRINT CHR$(187):MZ(4,77)=7:SOUND 600,0.1:H=77:FOR G=5 TO 11:LOCATE G,H:PRINT CHR$(186):MZ(G,H)=7:NEXT:SOUND 600,0.1:LOCATE 12,77:PRINT CHR$(188):MZ(12,77)=7
  231. 7110  SOUND 600,0.1:G=12:FOR H=76 TO 71 STEP-1:LOCATE G,H:PRINT CHR$(205):MZ(G,H)=7:NEXT:SOUND 600,0.1:LOCATE 12,70:PRINT CHR$(200):MZ(12,70)=7:SOUND 600,0.1:LOCATE 11,70:PRINT CHR$(186):MZ(11,70)=7:SOUND 600,0.1:LOCATE 10,70:PRINT CHR$(186):MZ(10,70)=7
  232. 7150  SOUND 600,0.1:LOCATE 9,70:PRINT CHR$(186):MZ(9,70)=7:SOUND 600,0.1:LOCATE 8,70:PRINT CHR$(187):MZ(8,70)=7:SOUND 600,0.1:G=8:FOR H=69 TO 54 STEP-1:LOCATE G,H:PRINT CHR$(205):MZ(G,H)=7:NEXT:SOUND 600,0.1:LOCATE 8,53:PRINT CHR$(200):MZ(8,53)=7
  233. 7190  SOUND 600,0.1:LOCATE 7,53:PRINT CHR$(186):MZ(7,53)=7:SOUND 600,0.1:LOCATE 6,53:PRINT CHR$(186):MZ(6,53)=7:SOUND 600,0.1:LOCATE 5,53:PRINT CHR$(186):MZ(5,53)=7:COLOR 4,0
  234. 7220  SOUND 600,0.1:FOR G=5 TO 7:FOR H=54 TO 70:LOCATE G,H:PRINT" ":MZ(G,H)=4:SOUND 1500,0.1:NEXT:NEXT:SOUND 600,0.1:FOR G=5 TO 11:FOR H=71 TO 76:LOCATE G,H:PRINT" ":MZ(G,H)=4:SOUND 1500,0.1:NEXT:NEXT
  235. 7240  COLOR 0,7:SOUND 600,0.1:LOCATE 9,38:PRINT CHR$(201):MZ(9,38)=7:SOUND 600,0.1:G=9:FOR H=39 TO 43:LOCATE G,H:PRINT CHR$(205):MZ(G,H)=7:NEXT:SOUND 600,0.1:LOCATE 9,44:PRINT CHR$(187):MZ(9,44)=7:SOUND 600,0.1:LOCATE 10,44:PRINT CHR$(186):MZ(10,44)=7
  236. 7280  SOUND 600,0.1:LOCATE 11,44:PRINT CHR$(186):MZ(11,44)=7:SOUND 600,0.1:LOCATE 12,44:PRINT CHR$(186):MZ(12,44)=7:SOUND 600,0.1:LOCATE 13,44:PRINT CHR$(188):MZ(13,44)=7:SOUND 600,0.1:G=13:FOR H=43 TO 39 STEP-1:LOCATE G,H:PRINT CHR$(205):MZ(G,H)=7:NEXT
  237. 7320  SOUND 600,0.1:LOCATE 13,38:PRINT CHR$(200):MZ(13,38)=7:SOUND 600,0.1:LOCATE 12,38:PRINT CHR$(186):MZ(12,38)=7:SOUND 600,0.1:LOCATE 11,38:PRINT CHR$(186):MZ(11,38)=7:SOUND 600,0.1:LOCATE 10,38:PRINT CHR$(186):MZ(10,38)=7:COLOR 7,0
  238. 7360  SOUND 600,0.1:FOR G=10 TO 12:FOR H=39 TO 43:SOUND 1500,0.1:LOCATE G,H:PRINT" ":MZ(G,H)=4:NEXT:NEXT:RETURN
  239. 7370  LOCATE 3,2:PRINT CHR$(221):LOCATE 5,2:PRINT CHR$(221):G=1:FOR H=3 TO 21:LOCATE H,G:PRINT" ":NEXT:FOR M=15 TO 20:N=72:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32)
  240. 7450  LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR M=10 TO 17:N=57:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR M=5 TO 12:N=74:LOCATE M,N:PRINT CHR$(32)
  241. 7580  LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR M=9 TO 19:N=41:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32)
  242. 7690  LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR M=4 TO 19:N=34:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR M=3 TO 19:N=3:LOCATE M,N:PRINT CHR$(32)
  243. 7820  LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR M=13 TO 19:N=17:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR M=9 TO 15:N=26
  244. 7950  LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR M=3 TO 11:N=21:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32)
  245. 8060  LOCATE M,N-2:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):NEXT:FOR N=74 TO 55 STEP-1:M=16:LOCATE M,N:PRINT CHR$(32):LOCATE M+1,N:PRINT CHR$(32):LOCATE M-1,N:PRINT CHR$(32):NEXT:FOR N=55 TO 74:M=11:LOCATE M,N:PRINT CHR$(32)
  246. 8190  LOCATE M+1,N:PRINT CHR$(32):LOCATE M-1,N:PRINT CHR$(32):NEXT:FOR N=53 TO 76:M=6:LOCATE M,N:PRINT CHR$(32):LOCATE M+1,N:PRINT CHR$(32):LOCATE M-1,N:PRINT CHR$(32):NEXT:FOR N=32 TO 48:M=5:LOCATE M,N:PRINT CHR$(32):LOCATE M+1,N:PRINT CHR$(32)
  247. 8320  LOCATE M-1,N:PRINT CHR$(32):NEXT:FOR N=15 TO 35:M=18:LOCATE M,N:PRINT CHR$(32):LOCATE M+1,N:PRINT CHR$(32):LOCATE M-1,N:PRINT CHR$(32):NEXT:FOR N=15 TO 28:M=14:LOCATE M,N:PRINT CHR$(32):LOCATE M+1,N:PRINT CHR$(32):LOCATE M-1,N:PRINT CHR$(32):NEXT
  248. 8460  FOR N=19 TO 28:M=10:LOCATE M,N:PRINT CHR$(32):LOCATE M+1,N:PRINT CHR$(32):LOCATE M-1,N:PRINT CHR$(32):NEXT:N=54:FOR M=5 TO 17:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32)
  249. 8580  LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):N=N-1:NEXT:N=46:FOR M=4 TO 8:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):N=N-1:NEXT:N=21
  250. 8670  FOR M=3 TO 19:LOCATE M,N:PRINT CHR$(32):LOCATE M,N+1:PRINT CHR$(32):LOCATE M,N+2:PRINT CHR$(32):LOCATE M,N-1:PRINT CHR$(32):LOCATE M,N-2:PRINT CHR$(32):N=N-1:NEXT:COLOR 0,7:N=60:FOR M=15 TO 17:LOCATE M,N:PRINT CHR$(186):MZ(M,N)=8:NEXT
  251. 8740  N=65:FOR M=15 TO 17:LOCATE M,N:PRINT CHR$(186):MZ(M,N)=8:NEXT:M=13:FOR N=55 TO 59:LOCATE M,N:PRINT CHR$(205):MZ(M,N)=7:NEXT:M=8:FOR N=72 TO 76:LOCATE M,N:PRINT CHR$(205):MZ(M,N)=7:NEXT:M=12:FOR N=40 TO 43:LOCATE M,N:PRINT CHR$(205):MZ(M,N)=7:NEXT
  252. 8780  M=10:FOR N=32 TO 36:LOCATE M,N:PRINT CHR$(205):MZ(M,N)=7:NEXT:M=16:FOR N=32 TO 36:LOCATE M,N:PRINT CHR$(205):MZ(M,N)=7:NEXT:M=12:FOR N=24 TO 28:LOCATE M,N:PRINT CHR$(205):MZ(M,N)=7:NEXT:M=15:FOR N=3 TO 5:LOCATE M,N:PRINT CHR$(205):MZ(M,N)=7:NEXT
  253. 8820  M=10:FOR N=3 TO 5:LOCATE M,N:PRINT CHR$(205):MZ(M,N)=7:NEXT:M=6:FOR N=3 TO 5:LOCATE M,N:PRINT CHR$(205):MZ(M,N)=7:NEXT:N=71:FOR M=10 TO 12:LOCATE M,N:PRINT CHR$(186):MZ(M,N)=8:NEXT:N=66:FOR M=10 TO 12:LOCATE M,N:PRINT CHR$(186):MZ(M,N)=8:NEXT
  254. 8860  N=54:FOR M=5 TO 7:LOCATE M,N:PRINT CHR$(186):MZ(M,N)=8:NEXT:N=61:FOR M=5 TO 7:LOCATE M,N:PRINT CHR$(186):MZ(M,N)=8:NEXT:N=66:FOR M=5 TO 7:LOCATE M,N:PRINT CHR$(186):MZ(M,N)=8:NEXT:N=38:FOR M=4 TO 6:LOCATE M,N:PRINT CHR$(186):MZ(M,N)=8:NEXT
  255. 8900  N=25:FOR M=17 TO 19:LOCATE M,N:PRINT CHR$(186):MZ(M,N)=8:NEXT:N=20:FOR M=17 TO 19:LOCATE M,N:PRINT CHR$(186):MZ(M,N)=8:NEXT:N=23:FOR M=13 TO 15:LOCATE M,N:PRINT CHR$(186):MZ(M,N)=8:NEXT:COLOR 4,0:RETURN
  256. 8940  IF LEV$="3"THEN LEV$="1":GOTO 8970
  257. 8950  IF LEV$="1"THEN LEV$="2":GOTO 8970
  258. 8960  IF LEV$="2"THEN LEV$="3
  259. 8970  PLAY"MB":CLS:WIDTH 80:KEY OFF:COLOR 4,0:PLAY"MB":CLS:WIDTH 80:KEY OFF:COLOR 4,0:LOCATE 10,9:PRINT"PREPARE YOURSELF FOR ACCELERATION TO HYPERSPEED FOR LEVEL "+LEV$+" PLAY":FOR Y=37 TO 3000 STEP 11:SOUND Y,0.2:SOUND 3037-Y,0.2:NEXT:CLS
  260. 8990  ST1$=STRING$(79,176):COLOR 1,0:ST2$=STRING$(79,177):ST3$=STRING$(79,178):ST4$=STRING$(79,219):Q$=CHR$(179):FOR R=1 TO 2:FOR W=2500 TO 1000 STEP-100:SOUND W,0.1:NEXT:COLOR 4,0:LOCATE 12,40:PRINT CHR$(15):LOCATE 11,40:PRINT"*":COLOR 3,0
  261. 9070  FOR I=1 TO 11:LOCATE I,40:PRINT Q$:NEXT:COLOR 1,0:LOCATE 24,1:PRINT ST1$:COLOR 4,0:LOCATE 12,40:PRINT CHR$(15):LOCATE 11,40:PRINT"*":COLOR 3,0:FOR I=1 TO 11:LOCATE I,40:PRINT Q$:NEXT:COLOR 1,0:LOCATE 24,1:PRINT ST2$:COLOR 4,0
  262. 9130  LOCATE 12,40:PRINT CHR$(15):LOCATE 11,40:PRINT"*":COLOR 1,0:FOR I=1 TO 11:LOCATE I,40:PRINT Q$:NEXT:COLOR 1,0:LOCATE 24,1:PRINT ST3$:COLOR 2,0:LOCATE 12,40:PRINT CHR$(15):LOCATE 11,40:PRINT"*":COLOR 2,0
  263. 9190  FOR I=1 TO 11:LOCATE I,40:PRINT Q$:NEXT:COLOR 1,0:LOCATE 24,1:PRINT ST4$:COLOR 2,0:FOR I=1 TO 11:LOCATE I,40:PRINT Q$:NEXT:NEXT:FOR Z=1 TO 15
  264. 9240  SOUND 2000,0.1:SOUND(16-Z)*100,0.1:LOCATE 24,1:PRINT STRING$(80," "):LOCATE 12,40:PRINT CHR$(15):LOCATE 11,40:PRINT"*":FOR I=1 TO 11:LOCATE I,40:PRINT Q$:NEXT:NEXT:FOR P=3500 TO 100 STEP-20:SOUND P,0.2:NEXT:SOUND 100,24
  265. 9280  LOCATE 13,6:PRINT"YOU HAVE SUCCESSFULLY MADE THE HYPERSPEED JUMP TO LEVEL "+LEV$+" OF DATNOIDS":FOR I=1 TO 5000:NEXT:IF LEV$="1"THEN LOCATE 15,20:PRINT"YOU ALSO HAVE A FASTER SHIP, GOOD LUCK":FOR I=1 TO 2500:NEXT
  266. 9300  CLS:IF LEV$="1"THEN SK=INT(SK-(SK/2)):IF SK<1 THEN SK=1
  267. 9310  GOTO 470
  268.